. DO Externa l 

.LSTON 

.Page 
>>>>>>>>>>>>>>>>>>>>>>>> 
> 

> Module: Self test 
> 

> THIS MODULE IS INTENDED TO RUN IN BANK 1 

> FUNCTION: MtrSpd 

> FUNCTION: TrackCount 

> FUNCTION: SctrCount 

> FUNCTION: RuiTest 

>>>>>>>>>>>>>>>>>>>>>>>> 
.LSTOFF 



.FIN 

.DO 

.LSTON 

.Paqe 

.FIN 



internal 



Self Test: 



Tm Excpt_Stat,#Pwr-Rst ; check for power reset 

Jr Z,ST_J1trSpd 

Ld !rO,Scr_Cntr ; otherwise finish time on disk speed 

Or !rG,Ser_£ntr+? 

Jr Z,ST_J1trSpd 



Ld !r2.Scr_Cntr 

Ld !r3JScr-JCntr+1 

Call MsWait 

STJItrSpd: Call MtrSpd 

Jr Nz,SJf_Leave 

find S I f Ts t_Resu 1 1 , *$FF-D i sk JSpeed 

S 1 f -Tracks : Ca 1 1 TrackCount 

find S I f Ts t_Resu 1 1 , *$FF-Servo_Fa i I 

S I f _Sec tors : Ca 1 1 Sc tr Coun t 

Jr N2j.Slf_I.eaMe 

find SlfTst_Result,*$FF-Sector_£nt 

Slf_S'tate: Call Load_JStatus ; check state machine static state 

find IrOytWfask 

Jr Nz,Slf_Leaye 

find S I f Tst_Resu 1 1 . *$FF-State_Fa i I 



Slf-ftaTest: 


Call RwTest ;see i f we can read 




Jr Z,Slf_Leave 




find S I f Tst_Resu 1 1, *$FF-Rw_Fa i 1 


S 1 f _Leaue : 


Jp Bank_F?et 




.LSTOFF 




.DO External 




.LSTON 




.Page 



> 

> Function: HtrSpd { Motor Speed } 
> 

> This function is responsible for measuring the motor 

> speed. This is done fay timing the interval between 

> consectutive index marks. 
> 

> Inputs: { none } 

> Outputs : 

> MrSpd : BOOLEAN { zero flag MOT set if failure } 

>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 
.LSTOFF 
.FIH 

.DO Internal 
.LSTON 
.Paqe 
.FIH 



HtrSpd: 



HtrSpd_1: 



ntr-Spd_Lp: 



MtrSpd_End: 



find 

Cir 

Cir 

Ld 

Clr 

Call 

Tm 
Jr 

find 
Call 

Tm 
Jr 
I new 
Decw 
Jr 

Ld 

Ld 

Ld 

Ld 

Ld 
Call 
.LSTOFF 
.DO 

.LSTON 
Ld 
Cp 
Jr 
Cp 
Jr 
Ld 
.FIN 
.DO 

.LSTON 
Ld 
Cp 
Jr 
Cp 



lr-q,*$FF-lrq_lndex ;c!ear old event 

!r0 

Ir1 ; clear counter 

Ir4,*16 ;!oad dead man timer 

!r5 

SetDmt [entering critca! section - don't hangup! 

}rq,*irq_ Index ;wait for index to come around 
Z,NtrSpd_1 

I rq t *$FF- 1 rq_ I ndex- \ rq JSec tor ; c I &ar- even ts 
ClrDmt ; leave crticai section 

lrq,*irq_!ndex ;wait for one rev 

Hz, MtrSpd-End 

llrO ;.0t42 ms/lp or 70.4 cnts/ms 

!!r4 

Nz,J1trSpd_Lp 

IrEJrt 

IrD.irO 

!rC,*0 

!r2,#.HIBVTE. Div3_19 

!r3,«.L0UB¥TE. Div3_19 

Bank-Call jget speed within tolerence in !r-2 

M_iONB 

!r0.,*1 ; assume failure 

!r2 J ,*$44 ;accepts speeds between 18.5 ms and 20.5 ms 

Lt.SltrSpdlLv 

ir2,#$4C 

Gt,HtrSpd_Lv 

!rG,*0 ; otherwise pass 

U_2GMB+M_4GNB 

!r0,*1 ;assume failure 

!r2,*$48; accepts speeds between 18.5 ms and 20.5 ms 

Lt,HtrSpd_Lv 

!r2,#$4C 



Jr Gt,NtrSpd_Lv 

Ld irO,*0 ; otherwise pass 

.FIN 



HtrSpdJLv: 


Or !r-0, !r-0 ;s 




Ret 




.LSTOFF 




.DO External 




.LSTON 




.Page 


;>>>>>>>>>>>>>> 


>>>>>>>>>>>>>>>>>>> 



> Function: TrackCount 
> 

> This function is responsible for counting the number of 

> tracks that are available on the servo. 

> Inputs: { none } 
> 

> Outputs: 

> TrackCount : BOOLEAN { zero flag NOT set if failure > 

> Algorithm: 
> 

> BEGIN 

> Res tore < Forma tRecai > 

> Seek< Cyl=0 > 

> END 
> 

>>>>>>>>>>>>>>>> > > > >>>>>>>>>>>>>> 
.LSTOFF 
.FIN 

.DO Internal 
.LSTON 
.Page 
.FIN 



TrackCount: 



Ld !r2 / #.HIBVTE. ResetServo 

Ld ! r3, * . LOUBVTE . ResetServo 

Call Bank-Call ;try to get the servo in a nice state 

find DiskStat,*$FF-RdHdrRecal ; don't read any headers! 



Ld 


5rG,*DataRecal 


Ld 


!r2,».HfBYTE. Restore 


Ld 


ir3,».LGUBVTE. Restore 


Call 


BankJCall 


Ld 


! rC , *0 ; cy 1 i nder = 


Ld 


!rB>$69 " 


Ld 


!rE,«0 ;head = 


Ld 


!rF,*0 ; sector = 


Ld 


!r2,*.HIB¥TE. Seek 


Ld 


!r3,«.L0UBVTE. Seek 


Call 


BankJCal 1 


Ret 




.LSTOFF 




.DO 


External 


.LSTON 




.Page 





> 

> Function: SctrCount 
> 

> This function counts the number of sector marks between 

> successive index marks and returns a true value if 

> the number of sectors counted equals NbrSctrs. 

> Inputs: { none } 
> 

> Outputs: 

> SctrCount : BOOLEAN { zero flag is set if true > 

>>:>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 
.LSTOFF 
.FIN 

.00 Internal 
.LSTON 
.Page 
.FIN 

SctrCount: 

Clr !r2 ; count := 

find lrq,*$FF-!rq_index ;clear oid index marks 

S_Cnt_ 1 : Tm I rq, * I rq_ I ndex ; ma i t for i ndex mark 
dr Z,SJCnt_1 

find irq,*lrq_lndex-lrqJSector ;clear old events 



5JCnt-3: 


Tm 


Por t3 , * 1 ndexilark ; Wh i i e NOT < 


Index > 




Jr 


Nz,S_£nt_End 






Tm 


irq/#lrqJSector 






Jr 


Z,S_Cnt_3 






Inc 


!r2 ; bump the sector count 






find 


I rq , *$FF- 1 r q_Sec tor 






Jr 


S_Cnt_3 




iLX'nt-End: 


Cp 

Ret 

.LSTOFF 


!r2,*NbrSctrs 






.DO 


External 






.LSTON 








.Page 






•>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 





> Function: RwTest 
> 

> This test moves the heads over a track away from the data 

> area { useable data area } and performs a write verify 

> on block zero of that track. If a fa i lure occurs , the test 

> will continue on the next sequential sector on that track 

> until all sectors have been written to. If there are no 

> successful transfers on any of the sectors of this track then 
>. the test is assumed to have failed. 



;> 

• > 

■ ■> 



Inputs: { none } 
Outputs: 



RwTest : BOOLEfiN { zero fiag set if failure > 



fl I gor i thm : 

BEGIN 
Seek< RuiTest track ) 
REPEfiT 
IF NGT< WrUerJCommcn ) AND < RdErrCnt = 10 > 
THEN 
Sector := Sector + 1 
IF ( Sector > NbrSctrs ) 
THEN Done := True 
ELSE Done : = True 
UNTIL Done 

IF < Sector > NbrSctrs > 
THEN RwTest := False 
ELSE RwTest := True 
END 



;>>>>>>>>>> 


>>>>>>>>>>>>>>>>>>>>>>> 




.LSTOFF 






.FIN 






.DO 


Internal 




.LSTON 






.Page 






.FIN 




RwTest: 








Or 


D i skS tat , *RdHdrReca I 




Ld 


*r-0,*DataRecal 




Ld 


!r2,#.HIBVTE. Restore 




Ld 


!r-3,#.LGMBVTE. Restore 




Cail 


Bank-Call 




Ld 


!r5,*0 




Push 


Excpt_JStat ;saye state 




Jr 


2,RwTest_End 




Pop 


Excpt_Stat 


RwTestl: 


Push 


Excpt_Stat 




Or 


ExcptJStat,*Recouery j let the 




Ld 


!rC,«Tst-HiCyl 




Ld 


!rO,*TstJ-oCyl 




Ld 


!rE,*Tst_Head 




Ld 


!rF,*TstJ5ctr 




Call 


New_Seek 




Ld 


!r5,*NbrSctrs 


RfttTestJLp: 


Ld 


! r2 , * . H 1 BYTE . Zero_Header 




Ld 


!r3,«.L0MBVTE. Zero-Header 




Call 


Bank_Call 




Push 


!r5 




Or 


DiskS tat, «WrJ3p 




Ld 


!r2,*.HIBVTE. MrBlkJJector 




Ld 


! r3, * . LOWBVTE . WrB f k_Uec tor 




Call 


BankJCal 1 




Pop 


!r5 




Jr 


Z,R&»_Next 


1 


Ld 


RdErrCnt.,*10 ; assume a fai lure 




Push 


!r5 




find 


DiskStat,*$FF-l4rJ0p 





Ld 


!r2,*.HIBVTE. RdBlk_Uector 




Ld 


!r3,*.L0WBVTE. RdB I k_Uec tor- 




Call 


Bank JCal I 




Pop 


!r5 




Jr 


Nz,RuiTest_End 




Tin 


!rG,*RdNoHdrFnd 




Jr 


Nz,Rw_Next 




Ld 


!rO,RdErrCnt 




find 


!rG\*$GF ;mask off unwanted status 




Cp 


!rG,*1G 




Jr 


Nz,RwTest_End 


RvJiext: 


Inc 


Sector 




Djnz 


!r5,RwTest_Lp 


RwTest_End: 


Ld 


!r-2,*.HJBVTE. ParkJteads 




Ld 


!r3,*.LGWBVTE. Park_Heads 




Call 


BankJCa! I 




Pop 


Excpt_JStat ; recover- original excep 




Or 


!r5, !r5 ;set zero flag 




Ret 





LSTOFF 



